home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / dpokalv2.dir / 00643_Script_ݨ×Ç™éDǝéËDžǵÇýÇÐÇ´ < prev    next >
Text File  |  1995-11-10  |  2KB  |  96 lines
  1. on GetCardT
  2.   set Rand = random(8)
  3.   if Rand = 1 then LuckyT1
  4.   else
  5.     if Rand = 2 then LuckyT2
  6.     else
  7.       if Rand = 3 then LuckyT3
  8.       else
  9.         if Rand = 4 then LuckyT5
  10.         else
  11.           if Rand = 5 then UnLuckyT1
  12.           else
  13.             if Rand = 6 then UnLuckyT2
  14.             else
  15.               if Rand = 7 then UnLuckyT3
  16.               else
  17.                 if Rand = 8 then UnLuckyT4
  18.               end if
  19.             end if
  20.           end if
  21.         end if
  22.       end if
  23.     end if
  24.   end if
  25. end
  26.  
  27.  
  28. on GetCardH
  29.   set Rand = random(11)
  30.   if Rand = 1 then LuckyH1
  31.   else
  32.     if Rand = 2 then LuckyH2
  33.     else
  34.       if Rand = 3 then LuckyH3
  35.       else
  36.         if Rand = 4 then LuckyH4
  37.         else
  38.           if Rand = 5 then LuckyH5
  39.           else
  40.             if Rand = 6 then UnLuckyH1
  41.             else
  42.               if Rand = 7 then UnLuckyH2
  43.               else
  44.                 if Rand = 8 then UnLuckyH3
  45.                 else
  46.                   if Rand = 9 then UnLuckyH4
  47.                   else
  48.                     if Rand = 10 then HereH3
  49.                     else
  50.                   if Rand = 11 then HereH4
  51.                 end if
  52.                   end if
  53.                 end if
  54.               end if
  55.             end if
  56.           end if
  57.         end if
  58.       end if
  59.     end if
  60.   end if
  61. end
  62.  
  63. on GetCardB
  64.   set Rand = random(11)
  65.   if Rand = 1 then LuckyB1
  66.   else
  67.     if Rand = 2 then LuckyB2
  68.     else
  69.       if Rand = 3 then LuckyB3
  70.       else
  71.         if Rand = 4 then LuckyB5
  72.         else
  73.           if Rand = 5 then UnLuckyB2
  74.           else
  75.             if Rand = 6 then UnLuckyB3
  76.             else
  77.               if Rand = 7 then UnLuckyB4
  78.               else
  79.                 if Rand = 8 then HereB3
  80.                 else
  81.                   if Rand = 9 then HereB4
  82.                   else
  83.                     if Rand = 10 then HereB5
  84.                     else
  85.                       if Rand = 11 then HereB6
  86.                     end if
  87.                   end if
  88.                 end if
  89.               end if
  90.             end if
  91.           end if
  92.         end if
  93.       end if
  94.     end if
  95.   end if
  96. end